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A Note 
From The Publisher 


Thanks for your patience in awaiting this issue of the Journa/—we’re sure 
you will find it well worth the wait. Thanks to some changes and additions you 
can now expect your Journal on aregular quarterly basis. 


We would like to take this Opportunity to announce some new staff 
members. Joining the Journa/ as Associate Editors are R. Lynn Smith 
(Balibago Double Standard, Vol. 1, No. 2) and William T. Gilliland whose XMON 
Monitor is featured in this issue. Coming on board as Assistant Editor is 
Jerome Laizure who is responsible for the new format of the Journal The 6800 
Advisory Board welcomes F. Emerson Brooks, Jr., D.Eng., (MEMTST—A 
Memory Program, Vol. 1, No. 1). 

We at the Journal have re-emphasized our commitment to produce a quali- 
ty publication regularly. The new format is just the first step. Starting with the 
next issue— when a suffcient amount of advertising is solicited— the Journal 
will expand to 32 pages. 

With your continued support and a good response from potential adver- 
tisers we plan to make the Journa/ the premier 6800 publication. So renew 
your subscription today and pass along a copy of the subscription form to a 
friend, members of your local user’s group, or other professionals at the of- 
fice. 

The Journal would also like to acknowledge the debut of the 68 Micro Jour- 
nal and wish publisher Don Williams, Sr. the best of luck and an offer to ex- 
change subscriptions. 

One last note. The Journal is always looking for high quality articles, pro- 
grams, evaluations, etc. Send the manuscript along with program documenta- 
tion to the address on the front cover. 


Harold Zallen, Ph.D. 
Publisher-Editor 
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Database 


Disk Oriented System” 


The 6800 ICCD feels that this Database 
Management System software is more than 
worth your entire subscription costs and 
frustrations you have had waiting for issues. 
In fact there are goodies in this package that 
far exceed the $95 Cromencormm Database 
Management System lauded by Creative 
Computing in a recent issue authored by 
John Craig. We should tell you at the outset 
we are giving you a single source license for 
this software as ICCD members. The soft- 
ware should be critiqued by you and com- 
ments sent to the 6800 ICCD. At a later date 
this will be marketed and sold to non-6800 
ICCD members in a fashion similar to 
Cromenco and others. We sincerely hope 
you like it and use it productively. 

Editor 


The Database Disk Oriented System is based on 
the concept that a program can serve multiple 
types of files. This is more desirable than con- 
structing a different program for each different file 
or group of files. The concept of Gupta and Lander 
in their program A Peoples Data Base System in- 
spired this system. 

Database is a file system that can be used with 
Southwest Technical Products Corporation 
Minifloppy and the Smoke Signal Minifloppy 
System. The Database System supports files on 
the disk. It requires the use of Flex™ and SWPT™ 
BASIC Ver. 3 or Smoke Signal™ DOS 3.1 or 4.2. 

With this system a file must contain at least one 
alpha character field but may contain as many 
more than one as required. It may contain zero 
numeric fields or as many as required. 

A maximum of twenty fields may be used. 
However, by changing the DIM statement at LINE 
15 the maximum number of fields may be altered. 

The program is written in BASIC language. The 
Database possesses the capability to set up anew 
file to your specifications or to call in from the disk 
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an old file previously set up on the Database 
system and allocate variables and memory space 
for this file. 

When the program is first called it will prompt for 
the name of the file (this may be either a new or 
old file). It will then prompt HOW MANY 
CHARACTER FIELDS.If an old file, a reply of 0 
(zero) will take you directly to the command re- 
quest. 

If a new file, enter the number of character 
(alpha) fields desired. The computer will prompt 
for the name of each field (try to keep to eight [8] 
letters, although more can be used). After all 
character fields have been named the computer 
will prompt for the number of numeric fields and 
then the name of each field. When this is com- 
pleted there will be a COMMAND prompt. 

The commands are: 


1. HELP—Lists all valid commands. 

2. ADD—Adds data to the file (either old or new 
file). 

3. DELETE—This will flag a string of data so that 
it will not be used during list or label com- 
mands butis still in the file. 

4. RESTORE—Returns all deleted files to the 
active file. 

5. CLIST—Lists in compressed form all data str- 
ings regardless of the delete status. 

6. LIST—This lists data with the name of the 
field of all data that has no delete flag set. 

7. END—Ends the program and returns to 
BASIC. 

8. LABEL—This program allows you to print 
labels from the data that has no delete flag 
set. It will prompt for the number of lines for 
the label (maximum is five [5] ). It will then 
prompt for the name of the field for each line, 
also one (1) line may contain two (2) fields 
(such as first and last name). It also prints an 
alignment string for proper setting of the 
label. 

9. RUBOUT—This program erases from the 
data file all records that have been flagged 
with the delete flag. 
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10. 


11. 


12. 


13. 


STATS—This program allows numeric fields 
to be summed, averaged, the variance and 
standard deviation found and the co-variance 
of two numeric fields to be found. 


SORT—This program uses the Shell-Metzer 
ascending or descending on any field either 
alpha or numeric. The program will prompt 
for the number of items to sort at one time. 
This allows you to tailor the program to 
available memory. The larger the number of 
items sorted at one time the faster the sort 
but the more memory is used. 


PRINT—This program outputs to the port (for 
hard copy) of your choice the data in the file 
but does not include the filed names. 


SEARCH—This program searches the file for 
a specific item and outputs to the port of your 
choice. It will first ask what field to search 
and then what item in the field to look for. 

. APPEND—This program requires some inter- 


LINES 80 

REM DISK ORIENTED DATA BASE 

OIM N$(20) 

INPUT "NAME OF FILE",FS 

LET G$=s"1.SCRATCH.DAT* 

PRINT "DEFINE DATABASE STRUCTURE” 
PRINT “HOW MANY CHARACTER FIELDS" 
INPUT T 

Ml=T 

IF M1<1 THEN 270 

FOR I=1 TO ML 

PRINT “WHAT IS THE NAME OF FIELD";1 
INPUT TS 

NS(I)sTS 

NEXT I 

PRINT "HOW MANY NUMERIC FIELDS" 
INPUT T 

M2=2T 

TF M2s0 THEN 250 

FOR I=1 TO M2 

PRINT "WHAT IS THE NAME OF FIELD"; 
INPUT TS 

NS(T4M1)=T$ 

NEXT I 

PRINT "STRUCTURE DEFINITION COMPLETE" 
GOSUB 2460 

PRINT "COMMAND" 

INPUT TS 

RESTORE 

READ 2$,T 

IF 2$="##" THEN 270 

IF LEFT$(2$,3)<>LEFTS(TS,3) THEN 300 
IF T>8 GOTO360 

ON T GOSUB 6705900110805 154011740519801 207052090 
GOTO 270 

ON T8 GOTO 580,590) 60076101620, 630, 640,650,660 
DATA ADDy1 

DATA CLIST,5 

DATA LIST.2 

DATA RUBOUT,8 

OATA DELETE,3 

DATA RESTORE,4 

DATA HELP»6 

DATA ENO,7 

DATA AVERAGE,9 

DATA SUM,9 

DATA VARIANCE,9 

OATA C-VARIANCE,9 

OATA LABELS,10 

DATA SORT,11 

DATA PRINT) 12 

DATA SEARCH) 13 

DATA APPEND, 14 

OATA CHANGE, 15 

DATA MISSCHECK, 16 

DATA REPAIR, 17 

DATA ##,=1 

CHAIN MATHC 

CHAIN LABELC 

CHAIN SORTC 

CHAIN PRINTC 

CHAIN SEARCHC 

CHAJAL APPENDS. 

CHAIN CHANGEC 

CHAIN PMISCKC 

CHAIN REPAIRC 

REM ADDS TO DATABASE 

LET 250 

OPEN #1,FS 

OPEN #2,G$ 

GOSUB 2340 


15. 


nal changes depending on your particular 
file. 

The object is to take a file on the disk that 
was not generated by this program and con- 
vert it to a file that will run on this program. To 
do this it is necessary to change LINE 4445 
and LINE 4460 through 4480 to fit your pro- 
gram. 

To use this program setup to database the 
usual way by entering the new program 
name, the number of character (alpha) fields 
and their name, and the number of numeric 
fields and their names when prompted by the 
program. Do not enter any data at this time. 
Then with APPEND program appended to 
Database and changes in the program made, 
call for APPEND and the program will enter 
the data from the old to the new program. 
CHANGE—This program allows you to 
change or correct the spelling of any field 
name. It will prompt for input needed. 


GOSUB 2400 

GOSUB 2530 

FOR I=] TO M1 

PRINT NS$(J) 

INPUT AS(T) 

TF AS(1)="STOP" THEN 880 

IF I=1 THEN WRITE#2,2,A$(1): GOTO800 
WRITE #2,A$(1) 

NEXT I 

IF M220 THEN 870 

FOR I=] TO M2 

PRINT NS(M14I) 

INPUT A(T) 

WRITE #2,A(T) 

NEXT 1 

GOTO 740 

CLOSE #1,#2:KILLFS:RENAMEGS, FS 
RETURN 

REM LISTS 

OPEN #1,F$ 

INPUT "PRINT PORT",P 

GOSUB 2340 

PORTs P 

FOR Isl TO ML 

IF I=1 THEN READ#1,Z,A$(1I)s GOTO980 
READ #1,A8(1) 

IF €OF(1)=1 THEN 1070 

IF Z=50 THEN PRINTNS() ¢TAB(15) $A$( 2) 
NEXT I 

IF M2s0 THEN 1060 

FOR I=l TO M2 
READ #1,A(T) 

IF 230 THEN PRINTNS(I4+M1)$TAB(15) $A(T) 
NEXT [I 

2203 PRINT: GOTO950 

PORT= 1:sCLOSE#) sRETURN 
REM DELETES A RECOED OR GROUP OF RECORDS 
OPEN #1,FS 
GOSUB 2340 
GOSUB 2670 

INPUT "WHICH FIELD TO DELETE ON(1,293,ETC)"yP 
LET BeP 
PRINT "IN "§NS(P)$% WHICH JTEM™ 
INPUT TS 
OPEN #2,G$ 
GOSUB 2400 

FOR Y=1 TO Mi 

TF I=1 THEN READ#1,Z,A$( 1) sGOTOL2Z10 
READ #1,A8(1) 

IF €OF(1)=1 THEN 1500 
NEXT 

IF M220 THEN 1270 
FOR [=] TO M2 
READ #1,A(3) 
NEXT I 

IF B>M1 THEN C=B=M1: GOTO1300 

IF TS2A$(B) THEN 1400 
GOTO 1310 

TF VAL(TS)=A(C) THEN 1400 

FOR Is] TOM, 

IF J21 THENWRITE#2,2,A$(1): GOTO1340 
WRITE #2,A8(1) 
NEXT 1 

IF M220 THEN 1390 
FOR Isl TO M2 
WRITE #2,A(T) 
NEXT 
GOTO 1180 

Zz} 
FOR 21 TO Mi 

IF [21 THEN WRITE#2,Z2,A$(13)2 GOTO1440 
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WRITE #2,A8(1) 
NEXT I 
IF M220 THEN 1490 
FOR Isl TO M2 
WRITE #29A(1) 
NEXT 1 
GOTO 1180 
CLOSE #1,#2 
KILL FS 
RENAME GS$,FS 
RETURN 
REM RESTORES ALL DELETED ITEMS 
OPEN #1,F$,#2)G6S 
GOSUB 2340 
GOSUB 2400 
FOR Te] TO ML 
IF Is] THEN READ#1,2,A$(1): GOTO1610 
READ #1,A8(1) 
TF BOF(1)=1 THEN 1720 
220 
IF Isl THEN WRITE#2,2,AS(1)3 GOTO 1650 
WRITE #2,AS8(13) 
NEXT J 
If M2s0 THEN 1710 
FOR Is1 TO M2 
READ #1,A(2) 
WRITE #2,A(1) 
NEXT I 
GOTO 1580 
CLOSE #1,#2:KILLFS 
RENAME G$,FS:RETURN 
REM COMPRESSED LIST OF ALL THE FILE 
OPEN #1,F8 
INPUT "PRINT PORT" )P 
GOSUB 2340 
PORTs P 
FOR I=] TO ML 
IF Is] THEN READ#1,)2,A$(1) sGOTOL820 
READ #1,AS(1) 
If €OF(1)52 THEN 1970 
NEXT I 
IF M250 THEN 1880 
FOR Isl TO M2 
READ #1,A(2) 
NEXT f 
FOR 321 TO ML 
PRINT AS(I)5® "5 
NEXT J 
TP M2s0 THEN 1980 
FOR f21 TO M2 
PRINT ACT) 9" "5 
NEXT I 
PRINT, 
GOTO 1790 
PORT= 1:CLOSE#1sRETURN 
REM HELP ROUTINE 
PRINT "VALID COMMANDS ARE” 
RESTORE 
READ 2$,T 
FOR f=1 TO M2 
IF Z2$="##" THEN 2060 
PRINT 2S 
GOTO 2010 
RETURN 
REM ENDS PROGRAM 
END 
REM REMOVES ALL DELETED ITEMS FROM THE FILE 
OPEN #1,FS,)#2,GS 
GOSUB 2340 
GOSUB 2400 
FOR I=1 TO ML 
IF Isl READ #1,2,A$(I): GOTO2Z160 
READ #1,A$(1) 
TF EOF(1)=1 THEN 2320 
NEXT I 
IF M220 THEN 2220 
FOR Is1 TO M2 
READ #1,A(1) 
NEXT I 
IF Z=1 GOTO2130 
FOR f=] TO M1 
IF Isl THEN WRITE@2,2,A$(1) sGOTO2260 
WRITE #2,A8(1) 
NEXT I 
IF M220 THEN 2310 
FOR [31 TO M2 
WRITE #2,A(T) 
NEXT I 
GOTO 2130 
CLOSE #1,#2:KILLFS 
RENAME G$,FS:RETURN 
REM PUTS VARIABLES INTO MEMORY 
READ #19M1,M2 
FOR 121 TO M1L4M2 
READ #1,N8(T) 
NEXT I 
RETURN 
REM PUTS FIELD NAMES ON DISK 
WRITE @2,M1,M2 
FOR Isl TO M1+M2 
WRITE #2,N6(1I) 
NEXT J 
RETURN 
OPEN #1,5FS 
WRITE #1>M1—M2 
FOR [21 TO M1eM2 
WRITE #1,NS(1) 
NEXT I 
CLOSE #1 
RETURN 
FOR I=] TO ML 
IF J21 THEN READ#1)2,A$( 1) sGOTO2560 
READ #1,A8(1) 
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0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 


IF EOF(1)#1 THEN 2660 

JF Yel THEN WRITE#2,2,AS(1) sGOTO2590 

WRITE #2,A$(1) 

NEXT f 

IF M220 THEN 2650 

FOR Isl TO M2 

READ #1,A(T) 

WRITE #2,A(1) 

NEXT I 

GOTO 2330 

2203 RETURN 

POR Is] TO M1L+M2 

PRINT Ig" "SNS(T) 

NEXT I 

RETURN 

REM ##*LABELSeee 

LINES 80 

INPUT "NAME OF FILE",FS 

OPEN #1,FS 
C=0:050 

GOSUB 710 

GOSUB 770 

INPUT "LINES PER LABEL(MAX IS 5)" T 
B=eT 

FOR Is1 TO T 

IF Dsl GOTO 150 

PRINT "IS LINE "31s" COMBINED(Y OR N)™ 
INPUT TS 

IF T$=s"Y" GOTO 600 

PRINT "WHAT IS NUMBER(1,2,ETC) OF FIELD OF LINE"31 
INPUT R 

V(T)SR 

NEXT I 

PRINT “PLEASE POSITION FORM® 

INPUT "1 FOR ALLIGNMENT OR 2 FOR BEGIN", T 
INPUT ™ PRINT PORT" 4P 

IF T=s2 GOTO 340 

PORT= P 

FOR I=] TO B 

PRINT "<eenme-=AL IGNMENToose2-=>" 
NEXT 1 

IF B>4 GOTO310 

FOR 128 TO4 

PRINT 

NEXT I 

PRINT 

PORT= 1 

GOTO 200 

FOR I=] TO ML 

IF I=L READ#1,Z2,A$(1) sGOTO370 

READ #1, AS(1) 

IF €OF(1)=1 THEN 570 

NEXT I 

IF M220 THEN430 

FOR I=M1+1 TO M2 

READ #1,A(T) 

NEXT 1 

IF Zs1 GOTO340 

PORT= P 

IF 231 GOTO 340 

FOR Isl TO B 

IF CsI GOTO660 

IF V(I)<M1l¢L THEN PRINTAS$(V(1I)) sGOTOSOO0 
PRINT A(V(T)) 

NEXT I 

IF B>4 GOTO 550 

FOR R=B TO 4 

PRINT 

NEXT R 

PRINT 

GOTO 340 

PORT= 1 

CLOSE #1 

CHAIN DATABASE 
Cs3sDel 

INPUT “WHAT IS THE NUMBER(1,2,ETC) OF THE 1ST FIELD",RL 
C(R1) sR} 

INPUT "WHAT IS THE NUMRFR(1.2.ETC) OF THE 2NN FIELOM.RA 
C(R2)sR2 

GOTO 180 

IF C(R1L)<M1+1 THEN PRINTAS(C(R1)) 5% "pe GOTO68O 
PRINT A(C(RLID8™ 5 

IF C(R2)<M1+1 THEN PRINTAS(C(R2)) sGOTO700 
PRINT A(C(R2)) 

GOTO 500 

REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 
READ #1eM1)M2 

FOR Is1 TO M1*M2 

READ #1,NS(I) 

NEXT I 

RETURN 

FOR J=]1 TO ML+M2 

PRINT 15 "3NS(T) 

NEXT I 

RETURN 


REM MATH PACK 

LINE= 80 

INPUT " NAME OF FILE”, FS 

OPEN #1,FS 

GOSUB 950 

PRINT "“WHICK ITEM DO YOU WANT” 
PRINT "1)SUM OF A FIELD” 

PRINT "2)AVREAGE OF A FIELO" 
PRINT "3)VARIANCE OF A FIELDY 
PRINT "4)COVARIANCE OF TWO FIELOS” 
PRINT "S)BND MATHFUNCTIONS” 
INPUT X 

ON X GOSUB 4109510)610) 730,930 
GOTO 60 

REM ##ROUTINE TO SUM FIELDS#*# 
T1=0:T2=0: 7320: T3202 T6=0:T7=0 
220 


0180 RESTORE #1 0280 PRINT 


0185 GOSUB 950 0260 PORT= 1 
0190 FOR I=1 TO ML 0270 GOTO 70 
0200 IF I=] READ #1,2Z,A$(1):GOTOZ20 0280 CLOSE #1 
0210 READ #1,AS(1) 0290 CHAIN DATABASE 
0220 IF EOF(1)=1 GOTO 350 0300 REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 
0230 NEXT I 0310 READ #1,M1,M2 
0240 FOR Is] TO M2 0320 FOR I=] TO Ml+M2 
0250 READ #1,A(1) 0330 READ #1,NS(I) 
0260 NEXT 1 0340 NEXT I 
0270 IF Z=1 GOTO 190 0350 RETURN 
0280 TL=T1+a(T) 
0290 T2=T2+(A(T)#A(T4)) 0010 REM SORT BY SHELL=METZER TECHNIQUE 
0300 T3=T341 0020 INPUT "NAME OF FILE",FS 
0310 TS=T5+A(T4) 0030 OPEN #1,FS 
0320 Te=Te+(A(T)#A(T)) 0040 pz0:C=0 
0330 T7=t7+(A(T4)#A(T4)) 0050 GOSUB 2070 
0340 GOTO 190 0060 FOR I=) TO ML 
0350 RETURN 0070 IF Is1 THEN READ#1,2,A${1): GOTO 90 
0360 GOSUB 1010 0080 READ #1,A$ 
0370 INPUT "NUMBER OF FIELD(1,2,3,ETC)"y1 0090 IF EOF(1)=1 THEN 170 
0380 IF I<M1+1 PRINTWYONLY NUMERIC FIELDS": GOTO360 0100 NEXT I 
0390 LET As! 0110 D=D+1 
0400 RETURN 0120 IF M2=0 THEN 160 
0410 REM ###SUMeee 0130 FOR I=1 TO M2 
0420 GOSUB 360 0140 READ #1,A(TI) 
0430 INPUT "PRINT PORT",P 0150 NEXT 1} 
0440 «T=I=M1 0160 GOTO 60 
0450 T4sT 0170 LET HS="1,WRK, DAT" 
0460 GOSUB 150 0180 LET GS="1, SCRATCH, DAT" 
0470 PORT= P 0190 LET I$="1.WRKL,DAT" 
0480 PRINT "THE SUM OF "3NS(A)3% = "5T2 0200 PRINT "THERE ARE "303" ITEMS TO SORTH 
0490 PORT= 1 0210 RESTORE #1 
0500 RETURN 0220 IF F=1 GOTO270 
0510 REM ###AVERAGE*es 0230 INPUT "NUMBER OF ITEMS TO SORT AT ONE TIME",E 
0520 GOSUB 360 0240 IF M=O THEN DIMC$(M1,E) ,22(E):GOTO260 
0530 INPUT "PRINT PORT",p 0250 DIM C${M1,E),C1(M2,E),Z2(E) 
0540 TxI=Mi 0260 F=l 
0550 T4sT 0270 GOSUB 2070 
0860 GOSUB 150 0280 LET B1=INT(D/E) 
0570 PORT= P 0290 IF D/E<>INT(D/E) THEN B1=B14+1 
0580 PRINT "THE AVERAGE OF "3NS(A)3" = "3T1/T3 0300 GOSUB 2130 
0590 PORT= 1 O30 INPUT "FIELD TO SORT ON(1,2)3,ETC)",R 
0600 RETURN 0320 IF R>ML THEN Y21: GOTO 340 
0610 REM ###VARIANCEs#s 0330 Y=2 
0620 GOSUB 360 0340 INPUT "ASCENDING OR DESCENDINS(A OR Dp)" 
0630 INPUT "PRINT PORT",P 0350 IF R>M1 THEN R=R=M1 erect pete 
0640 T=I-M1 0360 T=R:X=0 
0650 T4=T 0370 IF T$="D" THEN X=} 
0660 GOSUB 150 0380 Q=0 
0670 PORT= P 0390 OPEN #2,G6$ 
0680 LET Y=(Te=((T1#TL)/T3))/(T3=1) 0400 FOR I=1 TO E 
0690 PRINT MEAN", "VARIANCE", "STANDARD DEVIATION" 0410 FOR R=l TO Mi 
0700 PRINT T1/T3,Y,SQR(Y) 0420 IF R=l READ#1,Z2(1),C8(RyI) 8 GOTO440 
0710 PORT= 1 0430 READ #1,C$(R,I) 
0720 RETURN 0440 IF EOF(1)=1 THENS20 
0730 REM #e*#COVARIANCESss 0450 NEXT R 
0740 PRINT "FOR FIRST VARIATE" 0460 IF M2=0 THEN 500 
0750 GOSUB 360 0470 FOR R=1 TO M2 
0760 T4=I=-M1 0480 READ #1,C1(RyI) 
0770 PRINT "FOR SECOND VATIATE" 0490 NEXT R 
0780 GOSUB 360 0500 Q=Q+1 
0790 ~TsI-M1 0510 NEXT I 
0800 GOSUB 150 0520 CzC+1 
0810 INPUT "PRINT PORT",P 0530 LET M=Q 
0820 LET Cl=(T2=((T1#T5)/T3))/(T3=1) 0540 LET M=INT(M/2) 
0830 LET C2=(T2=((T1#T5)/T3))/T3 0550 IF Mz0 GOTO920 
0840 LET V1s(To=((T1*#T1)/T3))/(T3=1) 0560 LET Jai 
0850 LET V2=(T7=( (1T5#T5)/T3))/(T3=1) 0570 LET KzQ=M 
0860 PORT= P 0580 LET IzJ 
0870 PRINT " "PNMEAN", "VARIANCE", "ST, DEVIATION", "COVARIANCE" 0590 LET LeI+M 
0880 PRINT "IST "315/T3,V2,SQR(V2) ,C2 0600 IF Y=1 GOTO 690 
0890 PRINT "2ND "$TL/T3,VL,SQR(V1) 9 CL 0610 IF Y=2 GOTO 740 
0900 PRINT “CORRELATION COEFFICIENTS "301/(SQR(V1)#SQR(V2)) 0620 GOSUB 750 
0910 PORT= 1 0630 LET I=I=M 
0920 RETURN 0640 IF I<1 THEN 660 
0930 CLOSE #1 0650 GOTO 590 
0940 CHAIN DATABASE 0660 LET JaJ+1 
0950 REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 0670 IF J>K THEN 340 
0960 READ #1,M1,M2 0680 GOTO 580 
0970 FOR I=l TO M1+M2 0690 IF X=] GOTO 720 
0980 READ #1,NS(I) 0700 IF CL(TyI)<SC1(T)L) THEN 660 
0990 NEXT I 0710 GOTO 620 
1000 RETURN 0720 IF C1(TyI)>=C1(TyL) THEN66O 
1010 FOR Il TO Mi+M2 0730 GOTO 620 
1020 PRINT I5" "sNS(T) 0740 IF X=1-GOTO 770 
1030 NEXT 1 0750 IF CS{TyI)<=C${TyL) THEN 660 
1040 RETURN 0760 GOTO 620 
0770 IF C$(TyI)>= C$(T,L) THEN 660 
0010 REM PRINT OUTPUTS TO PORT OF CHOICE 0780 GOTO 620 
0020 INPUT "NAME OF FILE",FS 0790 FOR R=1 TO ML 
0030 OPEN #1,FS 0800 IF R=1 THEN P=Z2(1)1Z2(2)=22(L)8Z2(L) =P 
0040 GOSUB 300 0810 LET TS=C$(R,I) 
0050 INPUT “PRINT PORT#,P 0820 LET C$(RyI)=C${(RyL) 
0060 LET Z20 0830 LET CS(RyL)STS 
0070 FOR Ia] TO M1 0640 NEXT R” 
0080 IF [2] READW1.Z,A8S(I}3 GOTO 100 0850 IF M2=0 THEN 910 
0090 READ #1,A$(1I) 0860 FOR R=1 TO M2 
0100 IF EOF(1)=1 GOTO 280 0870 T2=C1(RyI) 
0110 NEXT I 0860 C1(RyI)=C1L(ReL) 
0120 IF M2=0 THEN 160 0890 Ci(RyL)=T2 
0130 FOR I=1 TO M2 0900 NEXT R 
0140 READ #1,A(T) 0910 RETURN 
0150 NEXT I 0920 WRITE #2,MLyM2 
0160 IF Z=1 GOTO 70 0930 FOR I=] TO M14+M2 
0170 PORT= P 0940 WRITE #2,NS(T) 
0180 FOR I=] TO M1 0950 NEXT 1 
0190 PRINT AS(1) 0960 FOR Iz1 TO Q 
0200 NEXT I 0970 FOR Rz1 TO M1 
0210 IF M2=0 GOTO 250 09860 IF Ral WRITE#2,22(1)4CS$(Ry I) tGOTOLOOO 
0220 FOR Iz1 TO M2 0990 WRITE #2,C$(R,yT) 
0230 PRINT A(T) 1000 NEXT R 
0240 NEXT I 1010 IF M220 THEN 1050 
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1020 


1030 
1n4o 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 


FOR Rel TO M2 
WRITE #2,C1(Rol) 
NEXT R 
NEXT I 
IF Cs1 GOTO 1110 
IF C=2 GOTO 1150 
GOTO 1140 
IF C=B1 GOTO 1240 
GOTO 380 
CLOSE #2 
RENAME G$, I$ 
GOTO 1090 
REM 
RENAME I$,HS 
OPEN #3,HS 
RESTORE #2 
GOSUB 1280 
CLOSE #2,#35#4 
KILL GS 
KILL HS 
GOTO 1090 
IF Csl CLOSE#1:GOTO 1250 
CLOSE #1 
KILL FS 
RENAME I$,FS 
CHAIN DATABASE 
OPEN #4,1$ 
READ #2,M1,M2 
WRITE #4)M19M2 
FOR I=] TO M1+M2 
READ #2,NS$(1) 
WRITE #4,N$(1) 
NEXT I 
T1503 T220sR=T 
READ #3,M1,M2 
FOR Isl TO ML+M2 
READ #3 NS$(1T) 
NEXT I 
GOSUB 1690 
IF Tl=1 GOTO 1610 
GOSUB 1790 
IF T2=1 GOTO 1650 
IF Y=1 GOTO 1460 
IF Y=2 GOTO1S60 
IF Xs1 GOTO 1540 
IF A(R)<SA1L(R) GOTO1500 
GOSUB 1980 
GOTO 1420 
GOSUB 1890 
GOSUB 1690 
IF Tls1 GOTO 1610 
GOTO 1440 
IF A(R)>2A1L(R) GOTO1500 
GOTO 1480 
IF Xs1 GOTO 1590 
IF A$(R)<=BS(R) GOTO 1500 
GOTO 1480 
IF A$(R)>=BS(R) GOTO1S00 
GOTO 1480 
IF T2=1 RETURN 
GOSUB 1980 
GOSUB 1790 
GOTO 1610 
IF Tisl RETURN 
GOSUB 1890 
GOSUB 1690 
GOTO 1650 
FOR Isl TO ML 
IF I=1 READ#2.2.A8(1)2GQT01720 
READ #2,AS(1) 
IF EOF(2)=1 THEN Tl=l: GOTO1780 
NEXT I 
IF M2=0 GOTO 1780 
FOR I=1 TO M2 
READ #2,A(1) 
NEXT I 
RETURN 
FOR Is1 TO ML 
IF I51 READ#3,Z1,B$(1):GOTO1820 
READ #3,B$(1) 
IF €OF(3)=S1 THEN T2=1: GOTO1e80 
NEXT I 
IF M2=0 GOTO 1880 
FOR I=1 TO M2 
READ #3,A1(1) 
NEXT I 
RETURN 
FOR I=] TO ML 
IF Is] WRITE#4,2,A$(1):GOTO 1920 
WRITE #4,AS(1) 
NEXT I 
IF M2s0 GOTO 1970 
FOR f=1 TO M2 
WRITE #4,A(1) 
NEXT I 
RETURN 
FOR I=1 TO ML 
IF Is] WRITE#4,21,B$(1)% GOTOZO010 
WRITE #4,BS(1) 
NEXT I 
IF M2so GOTO2060 
FOR T=1 TO M2 
WRITE #4,Al(T) 
NEXT I 
RETURN 


REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 


READ #1 9M1)M2 
FOR [51 TO ML+M2 
READ #1,N$(1) 
NEXT I 

RETURN 

FOR I=] TO M1+M2 
PRINT Is” "3NS(T) 
NEXT I 
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2160 
0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
2100 
1110 
1120 


RETURN 
REM SORT BY SHELL=METZER TECHNIQUE 


INPUT "NAME OF FILE", FS 
OPEN #1,FS 

D=0:C=0 

GOSUB 2070 

FOR [=] TO M1 


IF 151 THEN READ#1,2,A$(1): GOTO 90 


READ #1)AS 
IF EOF(1)=1 THEN 170 
NEXT I 
O=D+1 
IF M2s0 THEN 160 


FOR Isl TO M2 
READ #1,A(T) 
NEXT 1 
GOTO 60 
LET H$3"1,WRK,DAT" 
LET G$="1.SCRATCH, DAT" 
LET I$s"1,WRK1L.DAT" 
PRINT "THERE ARE "3D3" ITEMS TO SORT" 
RESTORE #1 
IF Fs. GOTO270 
INPUT "NUMBER OF ITEMS TO SORT AT ONE TIME"ZE 
IF MSO THEN DIMC$(M1,E),22(E) sGOTO260 
DIM CS$(M1,E),CL(M2,E),22(E) 
Fel 
GOSUB 2070 
LET BL=INT(D/E) 
IF D/E<>INT(O/E) THEN BLSB1+1 
GOSUB 2130 
INPUT "FIELD TO SORT ON(1)293,ETC)"OR 
IF R>M1 THEN Yel: GOTO 340 
Ys2 
INPUT "ASCENDING OR DESCENDING(A OR D)",TS 
IF R>ML THEN ReR-M1 
TsR:X=0 
IF TS$="D" THEN X=1 
Q=0 
OPEN #2,G6$ 
FOR I=l1 TOE 
FOR R=1 TO M1 
IF Rsl READ#1,22(1),C$(R,1)s GOTO440 
READ #1,CS(Ry1) 
IF EQF(1)=1 THENS20 
NEXT R 
IF M2=0 THEN 500 
FOR R=l TO M2 
READ #1,C1(RyL) 
NEXT R 
QsQ+1 
NEXT J 
C=C+l 
LET MsQ 
LET MSINT(M/2) 
IF M=Q GOTO920 
LET Jal 
LET K=Q=-M 
LET IaJ 
LET L=I+M 
TF Y=s1 GOTO 690 
IF Y=2 GOTO 740 
GOSUB 790 
LET IsI=M 
IF I<1 THEN 660 
GOTO 590 
LET JsJ+l 
IF J>K THEN 840 
GOTO 580 
IF Xs1 GOTO 720 
IF CL(T,I)<sCl(Tyk) THEN 660 
GOTO 620 
IF C1l(TyT)>2C1( Tek) THENG60 
GOTO 620 
IF Xs1 GOTO 770 


IF CS$(T,I)<sCS$( Tel) THEN 660 
GOTO 620 
IF C$(TyI)>= C$(TyL) THEN 660 
GOTO 620 


FOR R=l TO M1 

IF Rel THEN P=Z2(1)222(1)s22(L)222(L) =P 

LET TS=C$(RyI) 

LET CS(RyI)SCSE(RyL) 
LET C$(RyL)=TS 

NEXT R 

TF M220 THEN 910 
FOR R=1 TO M2 
T2SCL(Rel) 
CL(RyT)SCL(RyL) 
CL(RyL)2T2 

NEXT R 

RETURN 

WRITE #2)M1,M2 
FOR Isl TO M1+M2 

WRITE #2,NS(T) 

NEXT f 

FOR I=1 TO Q 

FOR R=] TO M1 

IF Rel WRITE#2,22(1),CS$(Ry1) sGOTOL000 

WRITE #29CS$(ReI) 

NEXT R 

IF M220 THEN 1050 
FOR R=1 TO M2 

WRITE #2,C1L(RyI) 

NEXT R 

NEXT I 

IF C=] GOTO 1110 
IF C=z2 GOTO 1150 

GOTO 1140 

IF CsB1 GOTO 1240 

GOTO 380 

CLOSE #2 

RENAME GS$,I$ 


2130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1790 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 


GOTO 1090 
REM 
RENAME I$,HS$ 
OPEN #3,H$ 
RESTORE #2 
GOSUB 1280 
CLOSE #2,#3,#4 
KILL G$ 
KILL H$ 
GOTO 1090 
IF Cal CLOSE#1:GOTO 1250 
CLOSE #1 
KILL FS 
RENAME I$,F$ 
CHAIN DATABASE 
OPEN #4,1$ 
RFAN #2.M1 .M? 
WRITE #4,M1,M2 
FOR I=] TO Ml+M2 
READ #2,NS(TI) 
WRITE #4,N$(1) 
NEXT I 
TL=E0:T2=20:R=T 
READ #3,M1,M2 
FOR I=1 TO M1+M2 
READ #3 N$(I) 
NEXT I 
GOSUB 1690 
IF Tl=s1 GOTO 1610 
GOSUB 1790 
If T2=1 GOTO 1650 
IF Y=1 GOTO 1460 
IF Ye2 GOTO1L560 
IF X=1 GOTO 1540 
TF A(R)<=A1(R) GOTO1500 
GOSUB 1980 
GOTO 1420 
GOSUB 1890 
GOSUB 1690 
IF Tls1 GOTO 1610 
GOTO 1440 
IF A(R)>=A1(R) GOTO1L500 
GOTO 1480 
IF Xz1 GOTO 1590 
IF A$(R)<=8$(R) GOTO 1500 
GOTO 1480 
IF AS(R)>=B$(R) GOTO1500 
GOTO 1480 
IF T2=] RETURN 
GOSUB 1980 
GOSUB 1790 
GOTO 1610 
IF TlL=] RETURN 
GOSUB 1890 
GOSUB 1690 
GOTO 1650 
FOR Isl TO M1 
IF I=] READ#2,2,A$(1) 2GOT01720 
READ #2,A$(1) 
IF EOF(2)=1 THEN Ti=1: GOTO1780 
NEXT I 
IF M2=0 GOTO 1780 
FOR I=1 TO M2 
READ #2,A(1) 
NEXT I 
RETURN 
FOR I=1 TO M1 
IF I=1 READ#3,Z1,B8$(1) :GOTO1820 
READ #3,B$(1) 
IF EQF(3)=1 THEN T2=1: GOTO1880 
NEXT I 
IF M2=0 GOTO 1880 
FOR I=1 TO M2 
READ #3,A1(1) 
NEXT I 
RETURN 
FOR I=] TO M1 
IF I51 WRITEW4,2,A$(1):GOTO 1920 
WRITE #4,A$(1T) 
NEXT I 
IF M220 GOTO 1970 
FOR Isl TO M2 
WRITE #4.AS1) 
NEXT I 
RETURN 
FOR I=1 TO M1 
IF Isl] WRITE#4,Z1,8$(1)! GOTO2010 
WRITE #4,B$(1) 
NEXT I 
IF M2s0 GOTO2060 
FOR I=] TO M2 
WRITE #4,A1(T) 
NEXT 1 
RETURN 
REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 
READ #1)M1,M2 
FOR I=1 TO M1+M2 
READ #1,NS(TI) 
NEXT I 
RETURN 
FOR I=1 TO M1+M2 
PRINT Is" "$NS(T) 
NEXT I 
RETURN 


PRINT "CHANGES A FIELD NAME" 

INPUT "NAME OF FILE", FS 

OPEN #1,FS 

LET G$="1,SCRATCH,DATY 

OPEN #2,G$ 

GOSUB 200 

GOSUB 460 

INPUT "WHICH DO YOU WANT TO CHANGE(1)2)3,ETC)yP 


0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 


0440 
0450 


0460 
0470 
0480 
0490 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 


PRINT N$(P) 

INPUT "ENTER NEW NAME", P$ 

LET NS(P)=P$ 

INPUT "CHANGE ANOTHER FIELD NAME(Y OR N)", PS 
IF P$="Y" GOTO 80 

GOSUB 260 

GOSUB 320 

CLOSE #1,#2 

KILL FS 

RENAME G$,FS 

CHAIN DATABASE 

REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 
READ #1yM1yM2 

FOR Y=1 TO M1+M2 

READ #1,N$(T) 

NEXT I 

RETURN 

REM PUTS FIELDS NAMES ON DISK 
WRITE #2)M1yM2 

FOR I=1 TO M1+M2 

WRITE #2,NS(1) 

NEXT I 

RETURN 

FOR I=1 TO ML 

IF I=1 THEN READ #1,Z,A$(1) :GOTO380 
READ #1,A$(1) 

IF EOF(1)=L THEN 450 

IF I21 WRITEW2,2,A$(1):GOTO 380 
WRITE #2,A$(1) 

NEXT I 

IF M2=0 THEN 440 

FOR I=1 TO M2 

READ #1.A(1) 

WRITE #2,A(T) 

NEXT I 


oer01 RETURN 

FOR t21 TO M1+M2 
PRINT Ig" "3NS$(T) 
NEXT I 

RETURN 


REM APPEND 
INPUT "NAME OF FILE TO BE CREATED", FS$ 
OPEN #1,F$ 

LET G$="1, SCRATCH, DAT" 

OPEN #2,G$ 

INPUT "NAME OF FILE TO APPEND", HS 
OPEN #3,HS 

GOSUB 250 

GOSUB 310 

LET 250 

READ #3,P$,L$,S$,C$,TS 

IF EQF(3)=1 THEN 210 

FOR T=1 TO M1+M2 

IF 121 WRITE#2,2,PS 

IF I=2 WRITE#2,LS 

IF I=3 WRITEW2,S$ 

IF 14 WRITE#2,CS$ 

IF [28 WRITE#2,TS 

NEXT I 

GOTO 110 

CLOSE #1,#2,83 

KILL FS 

RENAME G$,FS 

CHAIN DATABASE 

REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 
READ #1,M1,M2 

FOR I=1 TO Ml+M2 

READ #1,NS(1I) 

NEXT I 

RETURN 

REM PUTS FIELDS NAMES ON DISK 
WRITE #2,M1,M2 

FOR Isl] TO Ml+M2 

WRITE #2,NS$(T) 

NEXT I 

RETURN 


REM PMISCKC 

REM PRINT ALL NUMBER OF CHECKS MISSING FROM FILE 
INPUT "ARE CHECK IN THE FILE IN NUMERIC ORDER(Y OR N)",NS 
TF NS=/N" PRINT "PLEASE PLACE IN NUMERIC ORDER": CHAIN SORTC 
INPUT "NAME OF CHECK FILE",FS 

INPUT "PRINT PORT",P 

OPEN #1,FS 

GOSUB 250 

GOSUB 310 

IF EOF(1)=1 THEN230 

LET Bsc 

RESTORE #1 

GOSUB 250 

GOSUB 310 

TF EOF(1)31 THEN 230 

IF BaC THEN B=B+1:GOTO140 

PORTs P 

PRINT B 

PORTs 1 

LET BzB+1 

IF EOF(1)21 THEN 230 

GOTO 160 

CLOSE #1 

CHAIN DATABASE 

REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 
READ #1)M1)M2 

FOR I=1 TO M1l+M2 

READ #1,N$(1) 

NEXT I 

RETURN 

FOR Isl TO Mi 

IF I=] READ#1,2,C:GOTO340 

READ #1,AS(T) 

IF €OF(1)s1 GOTO 400 
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0350 NEXT I 0570 NEXT I 


0360 IF M2=0GOTO 400 0580 RETURN 
0370 FOR I=1 TO M2 0590 FOR I=1 TO M1 
0380 READ #1,A(1) 0600 IF I=l READ#1,2,A$(1):GOT0620 
0390 NEXT I 0610 READ #1,A$(T) 
0400 RETURN 0620 IF EOF(1)=1 THEN 680 
0630 NEXT I 
REM REPAIRC 0640 IF M2=0 THEN 680 
PRINT "CHANGES AND CORRECTS AN ITEM IN A FILE" 0650 FOR I=1 TO M2 
INPUT "NAME OF FILE",FS 0660 READ #1,A(1) 
LET GS="1.SCRATCH.DAT" 0670 NEXT I 
OPEN #1,F$,#2,G6$ 0680 RETURN 
GOSUB 470 0690 FOR I=1 TO M1+M2 
GOSUB 530 0700 PRINT Is" "3NS(T) 
GOSUB 690 0710 NEXT I 
INPUT "NUMBER OF FIELD TO BE SEARCHED(1;2,ETC)"yB 0720 RETURN 
PRINT "IN "$N$(B)3" WHICH ITEM"; 0730 FOR Is1 TO Ml 
INPUT TS$ 0740 IF I=1 WRITE#2,2,A$(1) :GOTO7E0 
GOSUB 590 0750 WRITE #2,A8(1) 
IF EOF(1)=1 GOTO410 0760 NEXT I 
IF B>ML THEN C=B=-M1:GOTO 180 0770 IF M2=0 THEN GOTOS10 
IF T$=A$(B) THEN 200 0780 FOR Isl TO M2 
GOSUB 730 0790 WRITE #2,A(T) 
GOTO 120 0800 NEXT I 
IF VAL(T$)=A(C) THEN 200 0810 RETURN 
GOTO 160 
FOR I=] TO M1 0455 DATA SEARCH, 16 
PRINT NS(I)3"™ "3AS(T) 4200 REM SEARCHES FOR A SPECIFIC ITEM 
NEXT I 4205 OPEN #1,FS 
IF M2=0 THEN 270 4210 INPUT "PRINT PORT",P 
FOR I=1 TO M2 4215 GOSUB 7000 
PRINT NS(I+ML) 3" "SA(T) 4220 GOSUB 7800 
NEXT I 4225 INPUT "NUMBER OF FIELD TO SEARCH(1)293,ETC) "91 
INPUT "IS THIS THE CORRECT FILE(Y OR N)",YS 4245 LET Bsl 
IF Y$<>"Y" THEN 160 4250 PRINT "IN "sN$(B)$" WHICH ITEM" 
PRINT "NOW INPUT TO CORRECT THE FILE" 4255 INPUT T$ 
FOR I=1 TO ML 4260 FOR I=1 TO ML 
PRINT NS(I)$ 4265 IF I=1 READ#1L,Z,A$(1) sGOTO4275 
INPUT AS$(T) 4270 READ #1,A$(1) 
NEXT I 4275 IF EOF(1)=1 THEN 4375 
IF M220 GOTO390 4280 NEXT I 
FOR I=1 TO M2 4285 IF M2=0 THEN 4305 
PRINT NS(M14I) 3 4290 FOR Isl TO M2 
INPUT A(T) 4295 READ #1,A(1) 
NEXT I 4300 NEXT I 
GOTO 160 4305 IF B>M1L THEN C=B=M1:G0T04320 
PRINT "THIS IS THE END OF THE FILE" 4310 IF TS=A$(B) THEN 4330 
INPUT "DO YOU WANT TO CHANGE ANOTHER ITEM(Y OR N)",YS 4315 GOTO 4260 
CLOSE #1,#2 4320 IF VAL(T$)=A(I) THEN 4330 
KILL FS 4325 GOTO 4260 
RENAME G$,FS 4330 PORT= P 
IF YS="Y" GOTO4O 4335 FOR I=1 TO ML 
CHAIN DATABASE 4340 PRINT AS(1) 
REM PUTS PARAMETERS OF PROGRAM INTO MEMORY 4345 NEXT I 
READ #1.M1.M? 4350 IF M2=0 THEN 4370 
FOR I=] TO ML+M2 4355 FOR I=1 TO M2 
READ #1,NS(T) 4360 PRINT A(1) 
NEXT I 4365 NEXT I 
RETURN 4370 GOTO 4260 
REM PUTS FIELDS NAMES ON DISK 4375 PORTS 1 
WRITE #29ML—M2 4380 CLOSE #1 
FOR I=1 TO M1+M2 4385 RETURN 


WRITE #2,NS(1) 


RECYCLE(D) COMPUTERS 


x BUY % SELL + SWAP 


HARDWARE & SOFTWARE 
22 PAGES NEW PRODUCT ANNOUNCEMENTS 


Mailed 1st Class Every 3 weeks 
1year(18Issues) + $3.75 


ON-LINE see... 
24695 Santa Cruz Hwy Los Gatos, CA 95030 
WRITE FOR FREE SAMPLE ISSUE 
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6800 Debug Package 


The TSC 6800 Debug Package provides a better way to 
trap program bugs. It is an extremely powerful and 
complete assembler language program debugging tool 
which is capable of simulating all functions of the 6800 
microprocessor, including interrupts and I/O operations. 
tis an ideal substitute for hardware logic analyzers or CPU 
emulators at only a fraction of the cost. 


Any number of breakpoints may be user defined. Each 
breakpoint may invoke any one or combination of eight 
different actions. These actions may be dependent on a 
user defined condition such as register A=$FF or memory 
location $1B55=0. The actions may also be delayed or 
limited by a pass count. Histogram breakpoints may be 
set to enable profiling of the executed program. Break- 
points may be set in RAM or ROM! 


Complete simulation control allows trace mode to be 
enabled at anytime. During trace, registers and opcode 
mnemonics are displayed after each instruction is ex- 
ecuted. Single or multiple instruction stepping is per- 
mitted as well as simulation speed control. The trace back 
feature allows the past 256 executed instructions to be 
viewed. Program execution may be halted at anytime by 
operator command. 


Memory protection and traps are another key feature. Any 
section(s) of memory may be write, execute, memory, or 
simulate protected. Execution traps allow program exit 
on general conditions such as interrupt instruction, trans- 
fer instruction, subroutine nest count, and instruction 
count timeout. 


General features include a line at a time assembler, 
disassembler, memory interrogation commands, hex 
calculator, machine states counter, stack protection, reg- 
ister modifier, and mode control. In all, there are over 50 
commands available. The manual includes detailed 
operating instructions as well as the complete com: 
mented source listing. Requires 9K at $3C00. 


SL68-30  Manualand source listing $35.00 
SL68-30C with KCS Cassette $41.95 
SL68-30D with mini FLEX™ diskette $43.00 
SL68-30F with 8” FLEX™ diskette $55.00 


Send 25¢ for a complete catalog of TSC’s assembler 
language software for the 6800, 8080, and 6502. 


Technical Systems 
Consultants, Inc. 


Box 2574 W. Lafayette, IN 47906 
Le 


Specialists in Software & Hardware for Industry & the Hobbyist 
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EVE 
JUST 
BUILT 
YOU 


BETTER 
BUG 
TRAP 
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XMON 


6800 Extended Monitor 


Through the unusual talents of Bill Gilliland 
the XMON Monitor can be added to your 
repetoire of program management. We have 
used XMON for several months and find it ex- 
cellent.Space limitations prohibits us from 
including the source code in this issue. 

ICCD recognizes the time and effort it 
takes to input programs. For a $10.00 fee, in- 
cluding mailing, ICCD will take any pro- 
gram(s) in the Journal and provide you with a 
disk and pay shipping charges in the U.S. 
and Canada. If there is more room on the disk 
we will attempt to pack it with other pro- 
grams. We cannot place Flex+++mm or 
Smoke Signal Operating Systems on the 
disk, but can format the disk for either. Cur- 
rently available are 8”, 5” SWTPC, and 5” 
Smoke. Smoke 8” will be available at a later 
date. Eight inch disks will be slightly higher 
(as expected) $13.00 

If an article is too long but the source code 
is cogent to the member, we can offer copies 
at 8 cents per page plus shipping. We hope 
this will help those persons in need of copy 
or disks. 

Editor 


July 1979 


William T. Gilliland 
917 West 51st Street, South 
Wichita, Kansas 67217 


This monitor resides at $C000 and should be 
loaded with DOS by a startup file. It will add the 
label XMON to the FLEX™ command table by 
establishing continuation of the command table at 
label COTBL. XMON may be entered from FLEX by 
typing XMON and may be entered from 
SWTBUG« by typing Z. 

Once the monitor is running, the prompt RDY< 
will be printed. At this time the monitor will res- 
pond to commands entered at the keyboard. Typ- 
ing H will display the available commands. A Con- 
trol C at any time will exit to FLEX. Many of the 
monitor routines loop endlessly and may be ex- 
ited by typing the FLEX line delete character, nor- 
mally a control X. Others are exited automatically 
at the end of the task. 

The GET address routines retain the previous 
addresses used. These are displayed each time 
an address is asked for. If no change is desired 
simply type a carriage return. This is very conve- 
nient for multiple operations within the same 
block of memory. 

The print routine supports a serial printer on 
Port 3. If you have a different type of printer, you 
must replace the routine at label PINIT with your 
Port Initialization routine, and the routine at label 
PRTROU with your printer output routine. All FLEX 
TTYSET parameters are honored during printer 
output except the pause feature at the end of each 
page is disabled. ESC still controls pause, and the 
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pause is restored upon completion of the monitor 
routine. 
The following commands are available: 


B SWTBUG 

Typing a B exits XMON and jumps to SWTBUG. 
XMON may be reentered from SWTBUG by typing 
Z. The TTYSET duplex mode is restored upon 
return to XMON. 


C Memory Examine-Change 

Basically two routines, this routine allows ex- 
treme flexibility in program modification. The * 
prompt signfies that the routine is ready for input. 
A location is opened by typing the address follow- 
ed by a / (slash) or a . (period). Leading zeroes 
need not be typed. 

When the location is opened with a Slash, the 
contents are displayed in hex format. The con- 
tents may be changed by typing the new value and 
the location is then closed by typing a terminator. 
Any of several terminators may be used depen- 
ding upon the desired action. A carriage return 
will close the location and restart the routine with 
a prompt. A line feed will close the location and 
open the next sequential location. A @ (at sign) 
will open the location addressed by the current 
and previous bytes. After a location is closed with 
a Carriage return, it may be reopened by typing a 
Slash. When the contents of the location are 
changed, the routine checks to see that the 
change actually took place, and if not, an error 
message is typed. 

When the location is opened with a period, the 
instruction at the location is diassembled and 
displayed mnemonically. The same rules for clos- 
ing the location with a terminator apply here. 
However, when the line feed is typed, the next se- 
quential instruction is displayed, not the next loca- 
tion, and when the @ is typed, the instruction at 
the address determined by the operand is 
displayed. The instruction may be changed by typ- 
ing in the new instruction in normal assembly 
language format, remembering that all numbers 
must be entered in hex and must be preceded 
witha $. 

Branches are entered with a four digit hex ad- 
dress instead of an offset. ASCII values may be 
entered in the ’ format. Single digit indexes need 
not be preceded with a $, anda single X instead of 
O, X will suffice. When the branch address is not 
known at the time of entering the instruction, an * 
may be typed after mnemonic, and space will be 
reserved for the offset to be entered later. The 
type of branch may be changed by typing the new 
nmemonic without typing the address. 


D Disassembler 
This routine disasssembles the program bet- 
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ween two addresses. Printer output is supported 
in this routine. 


E Examine Memory Block 

This routine displays the contents of memory 
between two addresses. the contents are 
displayed both in hex and ASCII. Printer output is 
Supported in this routine. 


F Find Hex String 

This routine inserts hex characters while mov- 
ing memory block defined by BEG ADR and END 
ADR to right. 


J Jump to Target Program 
this routine jumps to program beginning at BEG 
ADR. 


L Hex Loader 

this routine loads characters into consecutive 
memory locations starting a BEG ADR. The 
preceding address is opened when a- is typed. 
The current address is typed when a space is 
typed. 


M Move Memory Block 

This routine moves a block of memory defined 
by BEG ADR and END ADR to a new Starting 
locaton defined by the TO address. 


N Number Base Conversion 

This routine converts decimal to hex and hex to 
decimal. A pound sign is displayed when the 
routine is ready for input. Decimal numbers are 
typed in with a - preceding them if they are 
negative. Hex numbers are preceded by a $. 
Numbers must be smaller then 65536 decimal. 
After the numer is entered the conversion is in- 
itiated by typing =. 

OS Offset Calculator (Store) 
ON Offset Calculator (Non-store) 

These routines calculate relative offsets. Out of 
range branches are indicated by ar error 
message. the ON routine simply displays the off- 
set. The OS routine calculates the offset and 
Stores it in the byte following the BEG ADR. 


P Print ASCII Text 
This routine prints ASCII text beginning at BEG 
ADR and terminated with Hex 4. 


S Shift Memory Block Left 

This routine shifts a block of meory defined by 
BEG ADR and END ADR left by the number of 
places indicated by OFST. OFST must be entered 
as one hex byte. 


T Enter ASCII Text 

This routine enters ASCII text beginning at BEG 
ADR. The routine is exited by typing Control D. 
this places a hex 4 at the end of the string, 
displays the last address used, and exits the 
routine. 
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BASIC FLOPPY DISK SYSTEM 


@ RANDOM ACCESS FILES 
@ ANY NUMBER OF FILES MAY BE OPEN (IN USE) AT ONE TIME 


e@ THE NUMBER OF FILES AND SIZE OF FILES IS LIMITED 
ONLY BY THE SIZE OF THE DISK 


@ MERGING FILES REQUIRES NO EXTRA DISK SPACE 
@ NO WAITING FOR THE DISK TO RE-PACK 
@ LONGER DISK LIFE—MORE EVEN DISK WEAR 


We delivered our first mini-floppy disk system a year and a half ago — 6 months 
ahead of any other 6800 based mini system. Since that time, it has earned the reputa- 
tion of being the most reliable mini-disk system available. 

This system comes completely assembled with a disk controller that is plug com- 
patible with the SWTPC 6800. In fact all our products use the 6800 standard SS-50 
(Smoke Signal 50) bus used by SWTPC. The cabinet and power supply are capable of 
handling up to 3 Shugart Mini-Floppy Drives. One drive is included in the price of the 
BFD-G68 and others may be added easily at any time. Or you may save money by order- 
ing the dual-drive BFD-68-2 or triple drive BFD-68-3 (pictured). Price: BFD-68 
$795, BFD-68-2 $1139, BFD-68-3 $1479, SA-400 Drive $355. 

A bootstrap PROM is included on the controller board to initiate the Disk Opera- 
ting System. Thus, you can be up and running from a cold start in just a few seconds. 


SUPER SOFTWARE 


The BFD-68 includes our new expanded disk operating system and disk file hand- 
ling BASIC interpreter. In addition, the BFD-68 is supported by the most complete 
microcomputer software available today. This includes an excellent editor and text 
processor, several assembiers and a BASIC compiler. 


Send for FREE NEW Computer Products Catalog 
s SMOKE SIGNAL BROADCASTING 
31336 Via ae CA 91361 
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Source for Port 2 Print Routine 
Using an ACIA 


James Petty, M.D. 
1016 N.W. 41st Street 
Oklahoma City, Oklahoma 73118 


QUINT.SYS 
We are quite sure that you have been 
frustrated when the routine or program you eee ey 
are working with requires hard copy. TSC in LOAD EQU 
Flext++™ allows the P.CMD to send your Pe cick ean 
output to PORT 7 via a PIA (6820). What about RENTER EQU 
using an RS 232-C configured printer? The Dace eee 
source code below allows you to use an ACIA PSTRING EQU 
(6850) via PORT 2 to output just as conve- eS ee 
: ; : : WARMS = FQU 
niently as by using Q for PORT 2. With simple LSTTRM EQU 
modification the same source code can be EOL: ane 
rewritten for other ports and other printers. P BRA 
6800 ICCD uses PORT 2, 3 and 7 for Printers. - poral 
i.e. PORT 2 with Q drives a Model 35 CMP A 
Teletype. ae 
. CMP A 
Editor BEQ 
CLR 
LDX 
LDA A 
Q.CMD STA A 
JSR 
VERSION EGU 1 BNE 
PORT EQU $BCC8B LDA A 
ORG $e010 STA A 
FDB INIT JSR 
FOB OUTCHR Lox 
ORG $719D JSR 
FDB OUTCHR JMP 
ORG $AQ16 P2 LDA A 
OUTCHR BRA OUT CMP A 
FCB VERSION BNE 
OUT STX SAVEX LOX 
PSH B P25 JSR 
Lox HPORT BRA 
LDA B #911 P3 JSR 
STAB %6x Pu JSR 
TEST LDA B Ox JMP 
ASR B Pa Lox 
ASR B BRA 
Bcc TEST NOPST Fcc 
STA A 1X FCB 
LDx SAVEX ERSTR FCC 
PUL B FCB 
RTS ORG 
SAVEX RMB 2 Fcc 
ORG SACHA FCB 
INIT STX SAVEX FCC 
Lox #PORT END 
PSH B 
LDA B #3 
STAB QeX 
LDX SAVEX 
PUL B 
RTS 
END 


John Waldvogel 

Motorola Inc. 

Suite 301 

800 N.E. 63rd Street 

Oklahoma City, Oklahoma 73112 


seoic 
$7740 
$712A 
$7806 
$7803 
$7196 
ET 
$7089 
$7118 
$713C 
$7193 
$7991 
$7982 
S769 
Pl 

1 
LSTITRM 
#$D 
PS 
EOL 
P8 
PAUSE 
HFCR 
#1 
Ovo 
FMS 
P2 
HSFE 
59x 


PSTRING 

PY 

RPTER:: 

FMSCLS 

WARMS 

#ERSTR 

P25 

""QUINT*SYS™ NOT FOUND? 
4 

"COMMAND MUST FOLLOW "PItTe 
4 

$7744 

"QUINT? 

Ord 

‘syst 
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File Edit Ver. 1.00 


Kenneth A. Erickson 
5816-56 S.W. Archer Rd. 
Gainesville, Florida 32608 


WARNING 
As aprecaution, copy file before editing it. 


Just as the BASIC can be edited via the 
editor, Ken Erickson, in his Gator-Genius, 
found a way to edit programs in machine “SYSTEM EQUATES 
language. This is a very valuable program to 


‘ 7806 FMS Eau $7806 FILE MANAGEMENT SYSTEM ENTRY 
add to your system. We tried the program 7293 FMSCLS EQU $7803 CLOSE FILE CONTROL BLOCK 
nd found it excellent raze RSTRIO EGU $7424 , RESTORE 1/0 VECTORS 
: ICCD recognizes the time and effort it pase ae ee re cee 
7112 PUTCHR £E s HI I 
takes to in - ’e) m Fi r $70 00 fee ‘ lop PCRLF EQu $711E PRINT C/R-L/F 
= 1 Uy T P 
: DUE PIO GTN. FOL a ait nae 742 SETEXT EGU $7420 «GET FILE EXTENSION 
cluding mailing, ICCD will take any pro- 7436 RPTERR EQU $7136 © REPORT DISK ERROR 
: . . 7138 ADDBX EQu $7130 ADD ACC B TO INDEX REGISTER 
grams) in theJournal and provide you witha 743F GETHEX EQU  $743F GET HEX NUMBER FROM BUFFER 
disk and pay shipping charges in the U.S 7439 OUTHEX EQU $7433 «OUTPUT HEX DiGlT 
. is 7094 BUFPTR EQU $7894 BUFFER POINTER 
and Canada. If there is more room on the disk 7418 - CLASS EQU $7448 CLASSIFY CHARACTER 
we will attempt to pack it with other pro- Foee EOL, EGU $7062 «END OF LINE CHARACTER 
grams We cannot place Flex+ +4+m™ Or 7O91 LSTTRM EQU $7091 LAST NONALPHANUMERIC CHARACTER 
Smoke Signal Operating Systems on the *PROGRAM FLAGS 
disk, but can format the disk for either. Cur- 
. e308 ORG 38 
rently available are 8”, 5” SWTPC, and 5” i r 
Smoke. Smoke 8” will be available at a later e030 LINE RMB 4 LINE COUNTER 
. . . . . } Pi RMB PUT COUNTER 
date. Eight inch disks will be slightly higher oose CrLAG RMB CHANGE FLAG 
LFLAG RMB 1 LIST FLAG 
(as expected) $13.00 2034 LTRACK RMB 4 LAST TRACK REGISTER 
If an article is too long but the source code ce COUNT. «RMB 2 RANGE REGISTER 
is cogent to the member, we can offer copies oesn UBOUND RMB UPPER BOUND REGISTER 
at 8 cents per page plus shipping. We hope ee3Cc xTEMP RMB 2 TEMPORAY INDEX REGISTER 
this will help those persons in need of copy *FILE CONTROL BLOCK STORAGE 
or disks. 
Ed itor e108 ORG $0108 
e108 Fce RMB 192 
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16 


10668 


1000 
19002 


10083 
1004 
1006 
1088 
180A 
100Cc 
100E 
1018 
1012 
1014 
1016 
1618 
101A 
101C 
101E 
1024 
1024 
1026 
1029 
1626 


102E 
1031 
1033 
1036 
1038 


183A 


193¢ 
103F 


1041 & 


1043 
1046 
1049 


1648 
104E 
10528 
1052 
1054 


1857 


1859 


1658 
165E 
1060 


1962 
1064 


1667 
106A 
106C 
166E 


1970 
ters 
1875 
19877 
187A 
107C 


187E 


1080 
1082 
1685 
1087 
108s 
168A 
1e@8c 
198D 
108E 
108F 
1090 
1891 
1993 
1095 
1097 
1099 
1698 
1690 
109F 
10AL 
10A3 
16A5 


10An6 
1eA7 
10AS 
19R9 
1OAA 
10AB 


19eAC 
LOAF 


1@B1 
10B4 


1086 
1068 


*CONVERT BCD NUMBER IN THE INDEX REGISTER TO A HEX # 


ORG $1660 
a1 FEDIT BRA FEOIT1 
FCB a 
FEDIT1 CLR A 
39 STA A LINE 
34 STA A PAGE 
32 STA RA CFLAG 
33 STA A LFLAG 
34 STR A LTRACK 
35 STA A LSECTR 
26 STR A COUNT 
3? STA AR COUNT+4 
28 STA A LBOUND 
39 STA A LBOUND+2. 
FF LOA A #SFF 
3A STA R_ UBOUND 
3B STA A UBOUND+4 
et 80 LOx “FCB 
v1 27 JSR GETFIL 
se BcS FEOIT? 
81 86 LDXx FCB 
81 LOR A #4 
FL aD JSR SETEXT 
76 94 FEDIT2 LDx BUFPTR 
aa LOA R OX 
71 1B JSR CLASS 
aF secs FEDIT4 
29 cMP AR #9 
oF BLS FEDITS3 
741 at JSR NXTCHR 
4c CMP AR aL 
69 BNE ERROR 
O64 33 INC LFLAG 
74 22 JSR NXTCHR 
£3 BRA FEDIT2 
741 3F FEDITZ JSR GETHEX 
Sc ecs ERROR 
13 BSR CONYRT 
38 STx LBOUND 
78 92 LDA A LSTTRM 
eo FEDIT4 CMP A an 
ao BNE FEDITS 
ei 3F JSR GETHEX 
4c 6cs ERROR 
1e& BSR CONVRT 
3A STX UBOUND 
78 94 FEDITS LDR A LSTTRM 
78 B82 CMP A EOL 
a4 BEQ FEOIT6 
6D CMP A #43 
BE BNE FEDIT2 
91 88 FEDIT6 Lox “FCB 
OL LDR A #4 
Be STR AR @x 
7e o6 JSR FMS 
sc 8EQ EDIT 
28 BRA ERROR2 
31 FEDIT? BRA ERROR1 
3c CONYRT STX XxTEMP 
B@ 3c LDX #ATEMP 
BL LOA A 416% 
TRE 
OF AND A #415 
OL STA A 4.% 
TBA 
LSR A 
LSR A 
LSR A 
LSR A 
13 BSR CONYR4 
a4 ADD A 4.% 
BL STA A 4.% 
ae LOA A @.K 
OF ANC A 415 
og BSR CONVR1 
or BSR CONVR4 
82 ADD A BX 
LT) STA A Ox 
3c Lox XTEMP 
RTS 
CONVR1 ASL A 
TAB 
ASL A 
ASL A 
ABA 
RTS 
*REPORT ERROR CONDITIONS 
14 BS ERROR LDXx *SYNMSG 
214 BRA ERRORS 
14 96 ERRORS LDX #*ILLMsG 
ic BRA ERRORS 
@1 ERROR2 LOR A 1.x 
a4 CMP A #4 


SET FOR VERSION @ 


CLEAR FLAGS AND REGISTERS 


LORD FILE CONTROL BLOCK 
GET FILE SPEcs 


LOAD FILE CONTROL BLOCK 
SET FOR TXT EXTENSION 
SET DEFAULT EXTENSION 
LORD BUFFER POINTER 
LOAD FIRST CHARACTER 
CLASSIFY CHARACTER 

< 79° 9 


GET NEXT CHARACTER 
LIST OPTION 7? 


SET LIST OPTION FLAG 
GET NEXT CHARACTER 
GET HEX NUMBER ~ 
CONVERT BCD TO HEX # 
STORE LOWER BOUND 
LOAD LAST TERMINATER 
SEPERATOR ? 

GET HEX NUMBER 
CONVERT BCD TO HEX # 
STORE UPPER BOUND 
LOAD LAST TERMINATOR 
END OF LINE CHARACTER ? 


CPR ? 
LOAD FILE CONTROL BLOCK 


OPEN FILE 


SAVE x 
LOAD REGISTER 
LOAD LSB 


MASK LSo 


RELOAD WHOLE BYTE 
SHIFT RIGHT FOUR TIMES 


x 18 

ADO THE TWO DIGITS 
STORE HEX # 

LOAD mse 

MASK LSC 

x 16 

xX 18 = x 180 

ADD THE TWO BYTES 


LORD HEX WORD 


x2 
x8 
= 18 


NO FILE ERROR ? 


10BR 
216BC 
1@BF 


1@C1 
16C3 
1ecs 
i1ece 


16CA 
1eco 
1eDe 


1062 


1e@D5 


1e08 
1608 
1@DD 


18E@ 
1OES 
10E5 


1057 
10EA 
18EC 
10ED 
190EF 
10F2 
10FS 
10F7 


18F8 
18FA 
10FC 


10FE 
1109 
1183 
1105 
1168 
118A 
11eC 
1100 
11eF 
1114 
1113 
1445 
141? 
4119 


1118 
144E 
1120 
1122 
1124 
1126 
1128 
122A 
i11ec 


112E 
113¢ 
1432 
1134 
1136 
1138 


113A 
143D 
1148 
1143 
1146 
4449 
1446¢ 
144F 
11508 
4453 
1456 
1158 
145A 
145D 
1168 
1163 
1165 
1167 
116A 
1160 
116F 
1171 
1174 
1477 
147A 
4a7c 
117E 
1181 
1184 
1187 
1189 
1186 
148E 
1494 
1194 
1197 
1199 


RA 


SF 
a3 


33 
24 


oo 


34 


9E 
SF 


a6 
32 


eo 


32 
AS 
oF 
9c 
se 
SF 
36 


33 
82 


34 
72 
ee 


SF 
72 


76 
72 
Be 


7D 
72 
ae 


87 
v2 
cB 
33 


cé 


ERRORS 


ERRORS 
ERRORS 


BNE 
LOX 
BRA 
vox 
LBA 
STA 
JSR 
BEG 


JSR 
JSR 
BRA 
ISR 
JMP 


a 
A 


*GET A SECTOR 


EOIT 


EOIT2 


EoIT2 


EDITS 


EDIT4 


EDITS 


EoITs 


EDIT? 


TsT 
BNE 
JSR 


LBX 
LDA 
LOR 


TST 
BNE 
PSH 
STK 
LDX 
JSR 
LDX 
PUL 


STA 
STA 
Lon 


STA 
JSR 
BNE 


pop 


Bonaae Dd DPD DDB 


sD DD 


ERROR4 

#NOFMSG 

ERRORS 
aece 

#4 

GK 

FMS 

ERRORS 


RPTERR 
FMSCLS 
ERRORS6 
PSTRNG 


WARMST 


CLOSE FILE 
ERRGR ON CLOSE ? 


REPORT ERROR CONDITION 
CLOSE ALL OPEN FILES 
PRINT MESSAGE 


RETURN TO COS 


AND CHECK FOR EDITING 


LFLAG 
EoIts 
RSTRIO 


“FCB 
17,% 
18, % 


PAGE 
EDIT3 


XTEMP 
#FFDMSG 
PSTRNG 
XTEMP 


38. % 
31, % 
“9 


ox 
FMS 
ERROR3 
CFLAG 
EpIt? 
COUNT 


COUNT 
COUNT 
LBOUND 
EorTs 
COUNT +1 


LBOUND+4 


EDIT6é 


#FCB 
64.% 
ERRORS 
30, x 
LTRACK 
34, X 
LSECTR 
65. % 
EDITS 


COUNT 
UBOUND 
EDIT? 
COUNT+1 


UBOUND+1 


ERRORS 


CFLAG 
#HUPMSG 
PSTRNG 
PRFLNM 
eSCTMSG 
PSTRNG 
COUNT 


OUTDEC 
#FCS 
17,% 
XTEMP 
#STRMSG 
PRTKSC 
aFCB 
19.% 
TEMP 
#ENDMSG 
PRTKSC 
LTRACK 
XTEMP 
#LSTMSG 
PRTKSC 
FCB 
30, X 
XTEMP 
#PRIMSG 
PRTKSC 
“FCB 
64.% 
XTEMP 
@NXTHSG 
PRTKSC 
PRTCNT 
LFLAG 
EOIT168 
#CHNMSG 


LIST OPTION ON ? 
RESTORE IO VECTORS 


LOAD FILE CONTROL BLOCK 
LOAD FIRST TRACK # 
LOAD FIRST SECTOR #¢ 


OUTPUT FORM FEED STRING 


STORE TRACK # 
STORE SECTOR # 
LOAD READ FUNCTION 


STORE FUNCTION 
READ /¢ WRITE SECTOR 


ANY CHANGES MADE 7 
INCREMENT SECTOR COUNT 


AT BEGINNING SECTOR ? 


LOAD FILE CONTROL BLOCK 
LOAD NEXT TRACK 

ENO OF FILE ? 

LOAD PRESENT TRACK # 
UPDATE LAST TRACK # 
LOAD PRESENT SECTOR # 
UPDATE LAST SECTOR # 
LOAD NEXT SECTOR # 

GG READ NEXT SECTOR 


RESET CHANGE FLAG 


PRINT FILE NAME 


of gs 
a 


ca 


PRINT SECTOR COUNT 
LOAD FILE CONTROL BLOCK 


an a a 

pt fe ae eee 2 

PRINT STARTING TRACK AND SECTOR 
LOAD FILE CONTROL BLOCK 


PRINT ENDING TRACK AND SECTOR 


ait a 


PRINT LAST TRACK AND SECTOR 
LOAD FILE CONTROL BLOCK 


PRINT PRESENT TRACK AND SECTOR 
LOAD FILE CONTROL BLOCK 


PRINT NEXT TRACK AND SECTOR 
PRINT CONTENTS OF PRESENT SECTOR 
LIST OPTION ON 7 
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449C BD 
419F BD 
aaAe si 
14A4 26 
44A6 CE 
14A9 BO 
4aAC SF 
44AD BD 
4180 25 
4482 16 
1483 CE 
1466 BD 
44B9 86 
1486 BD 
14BE 86 
44C@ BD 
14C3 6D 
1106 86 
44C8 BD 
44CB 96 
44CD BD 
1400 86 
14102 BD 
1405 AG 
4407 2A 
4109 86 
1106 20 


1400 7D 
4168 26 
4162 84 
44E4 26 
12E6 7E 


11€9 20 


4166 81 
44ED 24 
14EF 86 


14F4 BD 
14F4 86 
44F6 BO 
14F9 86 
44FB BD 
11FE 86 
1208 BD 
1203 Cé 
1205 BO 
1208 25 
120A A? 
120C 66 
120E 97 
4248 CE 
1213 20 


12415 CE 
2218 SD 
121A CE 
1210 8b 
124F BO 
1222 CE 
4225 EE 
1227 DF 
1229 SD 
1228 CE 
122E 8D 
1230 BO 
1233 CE 
4236 SD 
1238 BD 
4238 81 
123D 26 
123F CE 
1242 86 
1244 7E 


1247 CE 
124A AG 
124C 27 
124E E6 
1258 07 
1252 £6 
1254 D7 
1256 E6 
1258 7F 
1258 36 


12a5c 96 


42@5E 4c 
125F 81 
1264 26 
1263 4F 


1264 97 

1266 32 

1267 7E 

426A CE 
6D 


42 SF EDITS 
74 OF 

Ss? 

37 

13 E@ 

12 8F 


EDITS 


EDITI8 


EDITi21 


EpIT12 


EDITA3 


EDITa¢ 


31 EprTas 
18 E7 

13 9E EDITI6 
i] 


126F 7E 18 Ci 


1272 BO 


4275 CE 
4278 BD 
4278 CE 
127E BD 
1281 CE 
1284 BO 
1es7 CE 
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JSR 
JSR 
CMP A 
BNE 
LDX 
JSR 
CLR B 
JSR 
ecs 
TRB 
LDX 
JSR 
LDA A 
JSR 
LDR A 
JSR 
JSR 
LDA A 
JSR 
LDA A 
JSR 
LDA A 
JSR 
LDA A 
BPL 
LOR A 
BRA 


TST 
BNE 
CMP A 
BNE 
JMP 


CMP A 
BHS 
LDA A 


JSR 
LDA A 
JSR 
LOR A 
JSR* 
LDR A 
JSR 
LOA B 
ISR 
ecs 
STA A 
LOA A 
STA A 
Lox 
BRA 


LDX 
BSR 
LDXx 
BSR 
JSR 
LDX 
LOX 
STX 
BSR 
LOX 
BSR 
JSR 
LDX 
BSR 
JSR 
CMP A 
BNE 
LOX 
LDA A 
JMP 


LOX 

LOA A 
BEQ 

LDA B 
STA B 
LDA B 
STA B 
LDA B 
CLR 

PSH A 
LDA A 
INC A 
CMP AR 
BNE 

CLR A 


STA A 
PUL A 
JMP 
LDx 


Jom 


PSTRNG 
GETCHR 
iad 
EDITS 
#LOCMSG 
PSTRNG 


GETNUM 
EDITS 


#FCB+64 
ADDBX 
#32 
PUTCHR 
ec 
PUTCHR 
OUTHEX 
#32 
PUTCHR 
tig 
PUTCHR 
#32 
PUTCHR 
@.X% 
EDITa1 
ee: 
EDIT1e 


CFLAG 
EDIT13 
#13 
EDIT19 
EDIT16 


EDITI4 


#32 
EDIT12 
#° 


PUTCHR 


GETNUM 
EDITS 
8% 

#4 
CFLAG 
#MORMSG 
EDITS 


#HUPMSG 
PSTRNG 
#RPLMSG 
PSTRNG 
PRFLNM 
#FCB 
30,% 
RTEMP 
PRTKS1L 
#WTHMSG 
PSTRNG 
PRTCNT 
#OKYMSG 
PSTRNG 
GETCHR 
ay 
EDITi4 
#FCB 
#18 
EDIT4 


#FCB 
64.% 
EDITis6 
30. % 
LTRACK 
34,% 
LSECTR 
65.% 
CFLAG 


PAGE 

4 
EDITAS 
PAGE 
epiIte 
#FFOMNSG 


PS 
ERRORS 


PRINT MESSAGE 
GET RESPONSE FROM TERMINAL 
YES ? 


PRINT MESSAGE 
SET FOR HEX @ 
GET NUMBER FROM TERMINAL 
INPUT ERROR ? 


LOAD FIRST BYTE OF SECTOR 
ADD ACC B TO INDEX REGISTER 


PRINT HEX NUMBER 


LOAD CONTENTS AT X 


ANY CHANGES MADE ? 


C/R ? 


< SPACE ? 


PRINT ASCII CHARACTER 


SET FOR A POSSIBLE ASCII CHARACTER 


GET NUMBER FROM TERMINAL 


SET CHANGE FLAG 


PRINT FILE NAME 
LOAD FILE CONTROL BLOCK 


PRINT PRESENT TRACK AND SECTOR 


PRINT 
PRINT 


MESSAGE 
NEW CONTENTS OF SECTOR 


GET RESPONSE FROM TERMINAL 
VES ? 


LOAD FILE CONTROL BLOCK 
LOAD WRITE FUNCTION 


LOAD FILE CONTROL BLOCK 
LOAD NEXT TRACK # 

END OF FILE ? 

LOAD PRESENT TRACK # 
UPDATE LAST TRACK # 
LOAD PRESENT SECTOR # 
UPDATE LAST SECTOR # 
LOAD NEXT SECTOR # 
RESET CHANGE FLAG 


END OF PAGE ? 


“PRINT THE TRACK AND SECTOR MESSAGE AND NUMBER Pre 


12 SF PRTKSC 


43 68 PRTKS1 
12 SF 
88 3C 
74 39 
13 6F 
42 8F 
@8 3c 


JSR 


Lox 
JSR 
LDX 
JSR 
LDX 
JSR 
LDK 


PSTRNG 


#TRKMSG 
PSTRNG 
#eXTEMP 
OQUTHEX 
#SECMSG 
PSTRNG 
@XTEMP 


PRINT MESSAGE 


PRINT messace “OTK 4 


PRINT TRACK NUMBER 


PRINT MESSAGE 


128A 
1288 
L28E 


i12erF 
12914 
1293 
1295 
1298 
1299 


1296 


129c 
429F 
12AL 
Lena 
L2A6 
12ers 
12AnB8 


12@AD 
L2AE 
1280 
41281 
12B3 
1265 
1268 
126A 
126C 
i12BF 


12c1 
4ace 
12c4 
1ac7 
i1ece 
a12cr 


1ece 
1ace 
4208 
1203 
1205 


1208 
1208 
12DE 
12E14 
12E3 


12E5 
12E7 
12EA 
12ED 
12EE 
12EF 
12F1 
12aF3 
12F6 
12ers 


12eFA 
aerc 
12FE 
1388 
1382 


1304 
1306 
4308 


130A 
130D 
130E 
130F 
4342 
1343 
2345 
1347 
1319 
131B 


431¢ 
434F 
4324 
1323 
1324 
1326 
1329 
132A 


1326 
132b 
432F 
1338 
1334 


os 
BD 
39 


AB 
81 
2? 
BD 
9s 
20 


39 


cE 
AGB 
8A 
BD 
sé 
BD 
cé 


SA 
27 
98 
AG 
27 
BD 
2a 
86 
BD 
cé 


es 
AG 
BD 
SA 
26 
39 


74 


<5 
2E 
968 


29 
74 


12 
20 


39 


12 


12 
12 


12 


12 


12 


4E 
40 
38 


iE 
30 
39 


12 
39 


12 


12 


OF 


OF 


INK 
JSR OUTHEX 
RTS 
«PRINT ASCII STRING 
PSTRNG LOR A @.% 
cMP A 84 
BEQ PSTRNL 
JSR PUTCHR 
INX 
BRA PSTRNG 
PSTRNL RTS 
*PRINT DRIVE #, FILENAME, 
PRFLNM LOX #FCB 
LDA A 3.% 
ORA A #$38 
JSR PUTCHR 
LOA Re’. 
JSR PUTCHR 
LOA B #9 
PRFLN1 DEC 8B 
BEQ PRFLN2 
INX 
LOA A 3.x 
BEQ PRFLNL 
JSR PUTCHR 
BRA PRFLNL 
PRFLN@ LOR AR #’. 
JSR PUTCHR 
LDA B 43 
PRFLNZ INX 
LDA A 3% 
JSR PUTCHR 
OEC B 
BNE PRFLNS 
RTS 
*PRINT 
PRTCNT LDX #HEDMSG 
BSR PSTRNG 
LDX @FCB+64 
STX xTEMP 
CLR LINE 
PRTCNL JSR PCRLF 
Lox *LINE 
JSR OUTHEX 
LOX XTEMP 
LDA B #16 
PRTCN2 LDA A #32 
JSR PUTCHR 
JSR OQUTHEX 
INX 
DEC B 
BNE PRTCN2 
LOR A 832 
JSR PUTCHR 
LDA B #16 
LDX XTEMP 
PRTCNS LOA AR OX 
CMP A #S7F 
BLO PRTCN4 
- LOA A 8: 
BRA PRTCNS 
PRTCN4 CMP A #32 
BHS PRTCNS 
LDA AH. 
PRTCNS - JSR PUTCHR 
INX 
CEC B 
BNE PRTCN3 
STX XTEMP 
LDA AR LINE 
ADD A #$1@ 
STA A LINE 
BPL PRTCNL 
RTS 


*GET TWO CHARACTERS FROM 


GETNUM JSR GETCHR 
cMP AM’. 
BNE GETNUL 
TST B 
BEQ GETNU4 
JSR GETCHR 
cLe 
RTS 

GETNUL BSR GETNU2 
ecs GETNU4 
ASL A 
ASL A 
ASL A 


PRINT SECTOR NUMBER 


END OF STRING ? 


PRINT CHARACTER 


AND EXTENSION 


LOAG FILE CONTROL BLOCK 
LOAD DRIVE # 

MAKE IT ASCII 

PRINT IT 


LOAD CHARACTER 
NULL 7 
PRINT IT 


LOAD CHARACTER 
PRINT IT 


THE CONTENTS OF THE PRESENT TRACK AND SECTOR 


LOAD FROM FIRST BYTE OF SECT 
RESET LINE COUNTER 
PRINT C/R-L’F 


PRINT LINE # 


PRINT 
PRINT 


SPACE 
HEX # 


PRINT SFACE 


LOAD CHARACTER 
NO ASCII ? 


PRINTABLE ASCII ? 


PRINT IT 


INCREMENT LINE COUNTER 


THE TERMINAL 
GET FIRST CHARACTER 
LEGAL MODE ? 


GET NEXT CHARACTER 
CLEAR CARRY FLAG 


INPUT ERROR ? 


17 


1332 48 ASL A 43CE 48 44 


1333 16 TRB SAVE MSD 4300 4& 47 
4334 BD 71 OF JSR GETCHR GET NEXT CHARACTER 43b2 45 52 
1337 8D B66 BSR GETNU2 4304 28 es 
1339 25 14 Bcs GETNU4 INPUT ERROR ? 4306 59 20 
1338 4 ABR ADD THE TWO DIGITS 43D8 2D 2@ 
433C 16 TAB 13DA 4E 29 
433D ec cLe CLERR CARRY FLAG 43DC 20 3F 
433 39 RTS 13DE 20 
13DF 04 FCB 4 
133F 8@ 30 GETNU2 SUB A #$30 
1344 2B BC BMI GETNU4 413E8 eb LOCMSG FCB 13,10 
1343 81 089 CMP R #9 >9? 43E1 BA 
4345 23 06 BLS GETNUS 4362 4c Fcc “LOCATION ? $7 
1347 88 a7 SUB A #7 13E3 4F 43 
4349 81 OF CMP A #15 > SOF ? 43E5 44 54 
1348 22 B2 BHI GETNU4 13E7 49 4F 
13E9 4E 20 
434D oc GETNUZ CLC CLEAR CARRY FLAG 43EB 3F 20 
4134E 39 RTS 13ED 24 
413EE 04 FCB 4 
434F CE 13 AE GETNU4 LDX #ERRMSG 
1352 ob sec SET CARRY FLAG 413EF 20 MORMSG FCC ¢ ANY MORE CHANGES ¢Y¥ - ND ? 7 
1353 39 RTS 13F0 44 4E 
13F2 59 2a 
1354 aD STRMSG FCB 43,18 13F4 4D 4F 
4355 OA 43F6 52 45 : 
1356 53 Foc STARTING? 413F8 20 43 
1357 S54 44 13FA 48 44 
1359 52 54 13FC 4E 47 
41358 49 4E 13FE 45 53 
135D 47 1400 20 28 
435E 04 FCB 4 1402 59 20 
1404 2D 20 
4135F 20 ENDMSG FCC ¢ ENDING? 1406 4& 29 
136@ 20 45 1408 20 3F 
1362 46 44 140R 20 
1364 49 4E 1408 04 FCB 4 
1366 47 
1367 o4 FCB 4 140C S52 RPLMSG FCC REPLACE :/ 
148D 45 50 
1368 20 TRKMSG FCC 7 TRK $7 440F 4c 44 
4369 54 52 1441 43 45 r 
1366 4B 20 1413 28 3A : 
136D 24 ; 1445 ap FCB 43,410,412. 4 
136E a4 FCB 4 1446 OA BA a 
1418 a4 
4136F 20 SECMSG FCC ¢? SEC $/ 
1370 53 45 1419 20 WTHMSG FCC ¢? WITH -¢ 
1372 43 20 144A 20 57 
1374 24 144 49 54 
1375 04 FCB 4 144E 48 20 
1428 2D 
1376 eb LSTMSG FCB 13,48 1424 @D FCB 13, 10,4 
1377 @A ; ‘ 1422 @A 04 
1378 4c FCC “LAST? 
1379 44 53 1424 ep OKYMSG FCB 13,108,140 
1378 54 1425 @A OA . 
137C¢ 04 FCB 4 1427 4F Fcc 7OKAY TO REPLACE THIS SECTOR <¥ - ND? ¢ 
1428 4B 44 
137D 20 PRTMSG FCC ? PRESENT/ 142A 59 20 
437E 20 50 142C 54 4F 
1389 52 45 142E 20 52 i 
1382 52 45 1430 45 Sa 
1384 4—E 54 1432 4C 44 
1386 04 FCB 4 1434 43 45 
1436 20 54 
1387 20 NXTMSG FCC ¢ NEXT? 1438 48 49 
1388 26 4E 143A 53 20 
138A 45 58 4430 53 45 
4380 54 143E 43 54 
138D 04 FCB 4 1440 4F 52 
1442 20 28 
138E 20 SCTMSG FCC ? SECTOR COUNT / 1444 59 20 
438F 228 53 1446 2D 28 
1391 45 42 1448 4E 29 
1393 54 4F 144A 20 3F 
1395 52 20 144C 20 
1397 43 4F ! 144D 04 FCB 4 
4399 55 4E ; 144E aD HEDMSG FCB 13,18 
1398 54 20 4 144F @A 
41390 a4 FCB 4 § i 1450 20 Fcc ¢ 08 81 62 63 O4 B85 B6 OF O8 9 BAY 
1454 20 20 
4139E @D FFDMSG FCB 13, 12, 10. @,0,0,4 1453 38 30 
139F QC BA - A 1455 28 30 
13AL 88 68 1457 31 28 
13A3 86 84 1459 20 32 
: 1458 20 30 
413AS aD HUPMSG FCB 13,18, 18, 10, $1A. 0. 6.8.4 145D 33 20 
13A6 OA BA . 145F 30 34 
43AS OR 1A 1461 28 30 is 
413AR 80 80 1463 35 20 
413AC 00 04 1465 30 36 
g 1467 28 30 
A3AE 20 ERRMSG FCC ¢ INPUT ERROR.- RE-ENTER? 1469 28 = 
413AF 20 49 1468 30 38 
1381 4E 50 »146D 20 30 
4383 55 54 146F 39 20 
1385 2@ 45 1471 30 44 
43B7 S2 52 1473 20 
1389 4F S52 1474 30 Fcc 7@B OC @D BE OF 0123456789RBCDEF/ 
13BB 20 2b 1475 42 20 
4380 20 S2 1477 3a 43 
13BF 45 2D 1479 20 30 
4301 45 4E 1478 44 20 
13C3 54 45 147D 28 45 
135 52 147F 22 20 
1484 46 20 
41306 @D CHNMSG FCB 13,18, 10 1483 30 34 
13C7 OA OA A ; 
4309 44 Fcc ANY CHANGES ¢(Y - ND ? 7 ace x oe 
13CA 46 59 1489 36 37 
13CC 28 43 148B 38 39 
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14C8 5e 20 

14C2 45 52 

14C4 Se 4F 

13.10,4 44cé6 S2 

14C? 04 FCB 4 


ILLMSG 13,10 


END —- FEDIT 
7ILLEGAL FILE NAME? 
NO ERROR(S> DETECTED 

SYMBOL TABLE 


ADDBX 7128 BUFPTR 7a94 CFLAG 9832 CHNMSG 13C6 CLASS 7118 
CONVR1 10R6 CONVRT 1989 COUNT 0336 EDIT 1p ECITi 16E@ 
EDIT1@ 141£9 EDITI1 11E£6 EDIT12 44F1 EOIT13 12145 EDIT14 1247 
EDITiS 1264 EDITi6 126A EDIT2 1987 EDITS 16F8 EDIT4 10FE 
€0ITS 1146 EDITé 1142€ EDIT? 113A EDITS 149C ECITS 11D 


F 4 ENDMSG 4125F EOL 7ee2 ERRMSG 13AE ERROR 10AC ERROR1 1084 

NOFMSG 13.18 ERROR2 19686 ERRORS 1@C1 ERROR4 18CA ERRORS 1002 ERRORG 1605 
FCB 9190 FEDIT 10@@ FEDIT1 1903 FEDIT2 102E FEDIT3 1648 

7NO SUCH FILE? FEDIT4 1057 FEDITS 1064 FEDIT6 107@ FEDIT7 107E FFDMSG 139E 


FMS 7806 FMSCLS 7883 GETCHR 716F GETFIL 7127 GETHEX 713F 
GETNUL 1328 GETNUZ 133F GETNUZ 1340 GETNU4 134F GETNUM 4134C 
HEDMSG 144E HUPMSG 13A5 ILLMSG 1496 LBOUND 9938 LFLAG 98833 
LINE 8028 LOCMSG 13E0 LSECTR 8835 LSTMSG 1376 LSTTRM 7691 
LTRACK 9834 MORMSG 13EF NOFMSG 14AA NXTCHR 74214 NXTMSG 12397 
OKYMSG 1424 OUTDEC 7133 OUTHEX 7139 PAGE 6634 PCRLF 744 


4 PRFLN1 12RD PRFLN@ 12BA PRFLN3 12C1 PRFLNM 1290 8 PRTCN4 12Da 

PRTCN@ 1265 PRTCN3 12FA PRTCN4 1304 PRTCNS 139A PRTCNT 12CB 

SYNMSG 13,18 PRTIKS1 1275 PRTKSC 1272 PRTMSG 137D PSTRN1 1298 PSTRNG 128F 
PUTCHR 7412  RPLMSG 149C RPTERR 7136 RSTRIO 7124 SCTMSG 138E 

7SYNTAR ERRORS SECMSG 136F SETEXT 712D STRMSG 1354 SYNMSG 1489 TRKMSG 1368 


UBOUND 863A WARMST 7103 WTHMSG 1419 XTEMP = 8@3C 


CLASSIFIED 
ADS 


Starting with the Fall 1979 issue, the 6800/ICCD JOURNAL will 
accept non-commercial classified advertising on a space 
available basis. Ad size will be limited to 100 words. The service 
will be free to paid subscribers, non-subscribers should in- 
clude a $2.00 payment per ad. Send typewritten copy to: 


Classified Ad Dept. 


NS 
Peoeena (pee ACUI 


INTERNATIONAL COMPUTER CENTER DIRECTOR 


Norman, Oklahoma 73070 


July 1979 19 


MICROCOMPUTER 
SOFTWARE 


TheS $1 
Microcomputer 
Software 
Guide 


Over 2300 programs on 
tape, disk, published in 
books and magazines from 
130 software sources 
(with addresses), classified 
into 230 categories with 
cross-references. 

Shipped off the shelf. 


Second Edition $ 7.95 


A Companion to 
Uiterwyk’s EASIC 
Interpreters 

by Dave Gardner 


70 key memory locations 
mapped in SWTPC/MSI BASICS 
plus 30 assembled 6800 routines 
for ON ERROR GOTO, digit 
justification, IF THEN ELSE, 
program length, memory dump 
and more! With this book you 
can alter your Uiterwyk BASIC. 
Shipped off the shelf. 


Second Printing $ 14.95 


6800 FLEX"/SWTPC Softwa 


@ Renumbering System by Dave Degler . 


Renumber your BASIC programs with this new FLEX*™ utility. 
You'll wish you had it if you paint yourself into Programming 
“corners. Needs no extra RAM beyond the program being 
renumbered. With operation notes. Available on FLEX" minifloppy 
disk or SWTPC KCS cassette. 


@ Some Common Basic Programs 
by Lon Poole and Mary Borchers 


Now adapted to FLEX'™ and SWTPC 8K BASICS! 
67 key programs from the popular book, which is necessary 
as the manual. Conversion notes included. 
Disk 1: 37 programs on finance, investments, mortgage 
amortization, plotting, intergration, more. 
Disk 2: 30 programs on matrix arithmetic, statistics, calendar 
dates, metrics, more. 
Available on FLEX'™minifloppy disk or SWTPC 8K KCS cassettes. 
The book, Some Common Basic Programs — $ 8.50 
© Weekly Payroll / Income Expense Ledger / Club’s 

Mailing List / Church Membership and Pledge Records 
by Roger L. Smith 
These BASIC programs have had years of use and will be valuable 
additions to your SWTPC software library. Operation notes in- 
cluded. Cassette editions store data on data tapes. Each program ison one 
FLEX'™ minifloppy disk or SWTPC 8K KCS cassette. 
Prices: FLEX'™ minifloppy disk $ 16.95 each 

Kansas City Standard SWTPC 8K BASICS Cassette $ 10.95 each 
All software shipped off the shelf. Please include check or 
money order. International: add $ 4.00 per item for air mail 
postage. U.S. First Class: add $ 2.00. 


S S| Publications 


4327 East Grove / Phoenix, Arizona 85040 


FLEX'™ is a trademark of Technical Systems Consultants, Inc. 


Leiongetaraitene aay ORO ER BUANKR an tenac cena es hdenes 


The SSI Microcomputer Software Guide $7.95 


A Companion to Uiterwyk’s Basic Inter- 
preters By Dave Gardner 


$S$l 
Mailing List—Tape 4327 E. Grove St. 
: . Phoenix, AZ 85040 
Mailing Flex—Tape 
Please send postpaid U.S. above marked items: 
Income/Expense—Tape 


Income/Expense—Flex Name 


Inventory—MSI disk Address 
Payroll—Tape : City 


Payroli—Flex State 


Lumber & board 
verification—Tape 


footage ith bid 
q oe Country 


Please enclose your check or money order. Foreign orders kindly remit in U.S. funds or draft drawn on 
U.S. bank adding $2.00 per item for postage. Arizone residents add 5% tax. Prices subject to change. 
Distributed internationally by Micromedia marketing, Pasadena, California. 


20 You may photocopy this page to preserve your JOURNAL intact. 6800/ICCD Journal 


SHOULD 
KNOW 
ABOUT 


The fastest floating point BASIC for any micro. 


TSC BASIC for the 6800 is 
the fastest floating point 
BASIC for ANY 8 bit micro- 
processor. No longer will 
the 6800 take a back seat to 
the 6502, 8080, or Z80! And 
with the TSC name, you 
know it’s top quality. 


TSC BASIC is not only fast, 
but complete with over 50 
commands and functions. 
Features include six digit 
floating point math, full 
transcendental functions, 
unlimited string length, if/ 
then/else construct, logical 
operators, and two-dimen- 


sional arrays including 
string arrays. The disk 
versions for FLEX™ 1.0 and 
2.0 support random access 
data files (the mini FLEX™ 
version does not). 


A cassette version requires 
10K while the disk versions 
require at least 12K. No 
source listings included. 
With KCS cassette - $39.95; 
mini FLEX™ - $49.95; FLEX™ 
2.0 - $54.95; and FLEX™ 1.0- 
$59.95. Soon to come area 
business BASIC and 6809 
BASIC. 


L ft 


Technical Systems 
Consultants, Inc. 


All orders should include 3% 
for postage and handling 
(8% on foreign orders). 
Send 25¢ for a complete 
software catalog. 


Box 2574 
W. Lafayette, IN 47906 
(317) 463-2502 


Pay a little bit more 


and 


get a printer that’s 


brighter than your computer. 
The BrighterWriter: 


When a few dollars more buys 
you a first-class impact printer, 
why settle for a toy? The Brighter- 
Writer gives you quality to start 
with. And versatility that stays 
even if you outgrow your 
present personal computer. 


Built smart like the big ones. 
The BrighterWriter’s a smart 
printer. There's a microcomputer 
inside. It outwits even the bigger, 
higher-priced printers. So you 
get versatility to do all kinds of 
printing. And power to grow on. 


Prints fat, skinny, 
tall, small.* 

This printer can 
be as creative 
asyourimag- & 

ohn cio? ination. Stretch 
ert out your char 
acters. Squeeze them close. 
Make them high. Low. 
Bold. Banner. You name it. - 


Plugs into your computer 

Most popular personal 
computers interface to the 
BrighterWriter. Simply and 
quickly. Hundreds of 
BrighterWriters are working in 
Apple, TRS-80, Heathkit, S-100 
and many other personal com- 
puter systems right now. 


Pictures and fancy L “BF 
symbols.* 


geoves 


tte, at? 


The BrighterWriter “= =< ! 
drawsoutyourcre- 3 _,. th 
ativity. You can print an 


drawings, graphs, 
diagrams, bold symbols, or just 
about any graphic you can 
imagine. 


Picture your page as thou- 
sands of dots. The BrighterWriter 
can fill in the dots, plot them con- 
tiguously, stack them, or scatter 
them. And its special set of gra- 
phic characters 
simplifies the 
process. 


Prints any char 
ie ia. f°) «©6actera typewriter 
‘rete FF Gan. Faster. 

The BrighterWriter can print 
plain and simple. With 7x7 dot 
matrix clarity. You get all the let- 
ters, numbers, and standard 
symbols of a 

regular 


oo 


typewriter. At up 
to 80 cps throughput. 
Ordinary paper. 

Fancy or plain, the Brighter- 
Writer prints on ordinary paper. 
Better yet, it prints on many 
shapes of paper Single sheets. 
Roll. Fanfold. 

Want more copies? The 
BrighterWriter prints multiple 


copies without extra adjustments. 


Four easy buttons. 

Operating the BrighterWriter 
couldn't be simpler. Up-front con- 
trols are easy to get to. A power 


*some of these advantages require extra-cost options. 


(“> , Abrighter 


bution to turn it on. Atest button to 

self-test your printer A paper feed 

button to advance the sheets or 

forms. Aline feed button to 

advance the paper aline at 
atime. 


any-which- way. 

The BrighterWriter comes in 
two models. The IP-225, at $949, 
gives you a BrighterWriter with 
tractor-feed drive for precision 
forms control. This one can 
handle everything from labels to 
8%" paper widths. 

Ithas eight form lengths and 
gives you all the features of our 
IP-125. 


buy. THEE goth Eel at 
Our IP-125, 

friction-feed ,BrighterWriter 
has a 96 character set and 
prints on 8%" wide paper. 
Upper and lowercase. It prints 
expanded characters, too. 

You can choose a RS-232 serial 
or parallel interface. $799 


Lots of goodies. 

There's more. Choose all kinds 
of options for your BrighterWriter. 
Up to 132 characters per line, var- 
iable character densities, larger 
buffers, special graphics pack- 
ages, interface cables, and more. 

Give us a call or write. Integral 
Data Systems, 14 Tech Circle, 
Natick, MA‘01760, (617) 237-7610. 

Better yet, see the Brighter- 
Writer at the store nearest you. 


@) Integral Data Systems, Inc. 


